﻿Partial Class Report

	Public Class Body

		Dim Tables As New List(Of Table)

		Function AddTable(ByVal Columns As String) As Table
			Tables.Add(New Table(Columns))
			Return Tables.Last
		End Function

		Sub Print(ByVal ParamArray Args() As Object)

		End Sub

		Sub Prepare(ByVal e As Layout)
			For Each Table In Tables
				Table.Prepare(e)
			Next
		End Sub

		Sub Prepare(ByVal Builder As StringBuilder)
			For Each Table In Tables
				Table.Prepare(Builder)
			Next
		End Sub

	End Class

End Class
